home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib12.dsk / SORT DEMO PROGRAM 4.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  43 lines
  1. 100  PRINT  CHR$(4)"BLOAD SORT.OBJ0"
  2. 110  HIMEM: 36864
  3. 120 SRT = 9 *4096:BL$ = "                    "
  4. 130  DIM NA$(20): FOR I = 1 TO 20: READ NA$(I): NEXT 
  5. 140  HOME : FOR I = 1 TO 20: PRINT NA$(I): NEXT 
  6. 150  VTAB 24: HTAB 4: PRINT "PRESS RETURN FOR ASCENDING ORDER";
  7. 170 X =  PEEK( -16384): IF X < >141  THEN 170
  8. 180  POKE  -16368,0: IF X < >141  THEN 170
  9. 190  VTAB 22: HTAB 20: INVERSE : PRINT "ASCENDING ORDER": NORMAL 
  10. 200 :
  11. 210 :
  12. 220  REM  SORT IN ASCENDING ORDER
  13. 230 :
  14. 240 :
  15. 250  VTAB 23: CALL  -958: CALL SRT,NA$,1,20,1,20,A
  16. 260  VTAB 1: FOR I = 1 TO 20: HTAB 20: PRINT NA$(I): NEXT 
  17. 270  VTAB 24: HTAB 4: PRINT "PRESS RETURN FOR DESCENDING ORDER";
  18. 280 X =  PEEK( -16384): IF X <128  THEN 280
  19. 290  POKE  -16368,0: IF X < >141  THEN 280
  20. 300 :
  21. 310 :
  22. 320  REM  SORT IN DESCENDING ORDER
  23. 330 :
  24. 340 :
  25. 350  VTAB 23: CALL  -958: CALL SRT,NA$,1,20,1,20,D
  26. 360  VTAB 22: HTAB 1: INVERSE : PRINT "DESCENDING ORDER": NORMAL 
  27. 370  VTAB 1: FOR I = 1 TO 20: PRINT NA$(I) LEFT$(BL$,18 - LEN(NA$(I))): NEXT 
  28. 380  GOTO 380
  29. 390 :
  30. 400 :
  31. 410  REM  DATA TO BE SORTED
  32. 420 :
  33. 430 :
  34. 440  DATA  KIZIAK GARRY,JACOBS MARIE
  35. 450  DATA  MELTON BRIAN,CLARRIDGE ANA
  36. 460  DATA  CALDARELLI LAURIE,SMYTHE ROB
  37. 470  DATA  JACOBS HANS,GRAY SALLY
  38. 480  DATA  DAVIS DIANE,CLARRIDGE TERRY
  39. 490  DATA  LUMSDEN DAVE,MELTON LINDA
  40. 500  DATA  KIZIAK SANDY,CALDARELLI OZZIE
  41. 510  DATA  SMYTHE SUE,GRAY GARY
  42. 520  DATA  LUMSDEN JUDY,KIZIAK STEVE
  43. 530  DATA  KIZIAK TRACEY,DAVIS JOHN